Cargar las librerías

# Cargo las librerías y establezco el directorio de trabajo
library(spdep)
library(sf)
library(rgdal)
library(tidyverse)
library(readxl)
library(mapdeck)
library(knitr)
library(kableExtra)
#devtools::install_github("meneos/elecciones") # <--- Instala la librería elecciones
library(elecciones)

Importar el shapefile

Empezamos importanto el shapefile de la Comunidad de Madrid y selecciono solo la ciudad de Madrid.

shp <- read_sf("~/Google Drive/DATOS/R/COMPORTAMIENTO ELECTORAL/shp/Comunidad de Madrid/2015/corregido/secciones_corregidas.shp", quiet = T) ### Importo el shapefile 
shp <- shp[substr(shp$GEOCODIGO, 1, 3) == "079",]  # Selecciono solo la ciudad de Madrid
shp <-  st_transform(shp, 4326)  # Transformo la proyección

Descargar los resultados

Me descargo los resultados a nivel de mesa de las elecciones municipales de mayo de 2015 y me quedo solo con los de la ciudad de Madrid.

results.muni <- mesas("municipales", "2015", "05") # Descargo los datos

probando la URL ‘http://www.infoelectoral.mir.es/infoelectoral/docxl/apliextr/04201505_MESA.zip’ Content type ‘application/zip’ length 9983826 bytes (9.5 MB) ================================================== downloaded 9.5 MB

results.muni <- results.muni[results.muni$provincia == "28" & results.muni$municipio == "079",] # 28 = Comunidad de Madrid | 079 = Ciudad de Madrid
ktab <- kable(head(results.muni), digits = 4, align = "l", row.names = F)
kable_styling(ktab, bootstrap_options = c("striped", "hover")) %>% scroll_box(width = "100%", height = "200px")
eleccion year mes partido ccaa provincia municipio distrito seccion mesa censo.INE CERA CERE votantes.CERE blancos nulos candidaturas votos siglas denominacion code.provincia code.autonomia code.nacional
04 2015 05 120806 12 28 079 13 186 A 836 836 12 0 3 3 511 200 AhoraMadrid AHORA MADRID 000806 000806 000806
04 2015 05 120806 12 28 079 08 006 U 764 764 2 0 9 3 580 69 AhoraMadrid AHORA MADRID 000806 000806 000806
04 2015 05 120806 12 28 079 13 057 U 1006 1006 9 0 5 3 582 207 AhoraMadrid AHORA MADRID 000806 000806 000806
04 2015 05 120806 12 28 079 02 040 A 739 739 7 0 2 4 528 187 AhoraMadrid AHORA MADRID 000806 000806 000806
04 2015 05 120806 12 28 079 07 034 A 622 622 9 0 1 4 413 132 AhoraMadrid AHORA MADRID 000806 000806 000806
04 2015 05 120806 12 28 079 08 164 A 786 786 7 0 5 4 603 148 AhoraMadrid AHORA MADRID 000806 000806 000806

Agrupar las mesas en secciones

Los datos se descargan a nivel de mesa electoral pero yo los quiero a nivel de sección censal. Así que agrupo los datos y me quedo solo con los cinco partidos más votados.

# Agrupo los datos
seccs.muni <- results.muni %>% group_by(year, mes, municipio, distrito, seccion, siglas) %>% summarise(censo = sum(censo.INE), 
                                                                                                       votos.candidatura = sum(candidaturas), 
                                                                                                       votos = sum(votos))
# Selecciono a los cinco partidos
seccs.muni <- seccs.muni[seccs.muni$siglas %in% c("P.P.", "C's", "AhoraMadrid", "P.S.O.E.", "IZQUIERDA U"),]
# Transformo los datos de formato long a wide 
seccs.muni <- spread(seccs.muni, key = siglas, value = votos)
# Calculo los % sobre censo
seccs.muni$PP_pct <- round((seccs.muni$P.P. / seccs.muni$censo ) * 100, 2)
seccs.muni$PSOE_pct <- round(( seccs.muni$P.S.O.E. / seccs.muni$censo ) * 100, 2)
seccs.muni$AM_pct <- round(( seccs.muni$AhoraMadrid / seccs.muni$censo ) * 100, 2)
seccs.muni$Cs_pct <- round(( seccs.muni$`C's` / seccs.muni$censo ) * 100, 2)
ktab <- kable(head(seccs.muni), digits = 4, align = "l", row.names = F)
kable_styling(ktab, bootstrap_options = c("striped", "hover")) %>% scroll_box(width = "100%", height = "200px")
year mes municipio distrito seccion censo votos.candidatura AhoraMadrid C's IZQUIERDA U P.P. P.S.O.E. PP_pct PSOE_pct AM_pct Cs_pct
2015 05 079 01 001 867 588 215 62 4 217 73 25.03 8.42 24.80 7.15
2015 05 079 01 002 661 427 224 38 6 102 44 15.43 6.66 33.89 5.75
2015 05 079 01 003 1126 693 265 52 18 264 75 23.45 6.66 23.53 4.62
2015 05 079 01 004 963 689 279 71 2 247 64 25.65 6.65 28.97 7.37
2015 05 079 01 006 1298 899 405 92 11 286 68 22.03 5.24 31.20 7.09
2015 05 079 01 007 645 431 213 44 4 124 35 19.22 5.43 33.02 6.82

Fusiono los datos con el shapefile

Creo una columna en el data frame de los datos con valores identificadores de cada seccion censal que ya está presente en el shapefile para fusionar datos y shapefile.

GEOCODIGO CODBDT DESBDT year mes municipio distrito seccion censo votos.candidatura AhoraMadrid C's IZQUIERDA U P.P. P.S.O.E. PP_pct PSOE_pct AM_pct Cs_pct geometry
07901001 811409 079-01-001 2015 05 079 01 001 867 588 215 62 4 217 73 25.03 8.42 24.80 7.15 list(list(c(-3.71133882021349, -3.71149475630557, -3.71176740114015, -3.71182289735078, -3.71189148263132, -3.71186513197534, -3.71184081637844, -3.71178998872502, -3.71175349957957, -3.71170520698459, -3.71169673735726, -3.71165545573597, -3.7116038919296, -3.71156467510878, -3.71152405837458, -3.71147202462079, -3.71142746481813, -3.71137227025857, -3.71131089890994, -3.71128751309589, -3.71125938133458, -3.71110976009693, -3.71109949692841, -3.71113609678432, -3.71123764101043, -3.71142950930536, -3.71166104719754, -3.71176160706835, -3.71193075710916, -3.71188921199693, -3.71173999256588, -3.71164280250205, -3.71157213703575, -3.71147172070958, -3.71134466140596, -3.71130177756398, -3.71119012747463, -3.71113238272816, -3.71094497478284, -3.71086162439225, -3.71088939738821, -3.7110719727868, -3.71122988688352, -3.71135436286749, -3.7114482171498, -3.71156809006312, -3.7115758010881, -3.71157878739098, -3.71159948903579, -3.71161972450287, -3.71163273631756, -3.71163748696087, -3.71164890991337, -3.71159250696465, -3.71156637187988, -3.71155012559672, -3.71154784291387, -3.71152835116662, -3.71149975281426, -3.71148374817959, -3.71147146962629, -3.71146034073368, -3.71142129218482, -3.71140188846327, -3.71139498570599, -3.71138589646618, -3.71137249687214, -3.71136215960466, -3.71135558372502, -3.7113506611986, -3.7113441095021, -3.71133992364933, -3.71134065444935, -3.71134083757085, -3.71134754886224, -3.71135772379088, -3.7113727282085, -3.71138772355102, -3.711404833422, -3.71142995132838, -3.71144716540837, -3.7114521459519, -3.71149620119081, -3.71153686090379, -3.7115409916681, -3.71157068795876, -3.71159272314922, -3.71160375521449, -3.71160921916916, -3.71162724306147, -3.71164668008295, -3.71165728042117, -3.71166050858861, -3.71167930581279, -3.71170050110753, -3.71173229536949, -3.71174713329917, -3.7117722235313, -3.71178626456359, -3.71180420155519, -3.71182264995612, -3.71183613142803, -3.71185936245284, -3.71189978035862, -3.7119024826716, -3.71190328090282, -3.71191572132933, -3.71193147745146, -3.71196453523993, -3.71196709185853, -3.71197057535222, -3.71201207263074, -3.71202106332694, -3.7120240281563, -3.71203859339693, -3.71204415871061, -3.71201765536958, -3.71189192180535, -3.71187008454776, -3.71186507991198, -3.71175405658155, -3.7116804546121, -3.71163606448328, -3.71159908227761, -3.71158506769606, -3.71154021006284, -3.7114083552079, -3.71134921639062, -3.71125703922113, -3.71124710287418, -3.71119341298469, -3.71119274135563, -3.71115810576433, -3.71115214256305, -3.71113633599852, -3.71111769741398, -3.71110560128234, -3.71107170994419, -3.71106025903457, -3.71103698109804, -3.71103715710115, -3.71120065170017, -3.71124969298857, -3.71133822443643, -3.71141402380763, -3.71144710452544, -3.71159280414501, -3.71162159457125, -3.71187266901979, -3.71192948377405, -3.71209539054818, -3.71220789498036, -3.71234980455138, -3.71238634224019, -3.71248090794348, -3.71273695948456, -3.71274973003784, -3.71295938363724, -3.71319965377482, -3.7132275969647, -3.71336508371396, -3.71351379721445, -3.71351285740577, -3.71351823036457, -3.71353866250272, -3.71354505797447, -3.71355259185975, -3.71359055461235, -3.71359661127862, -3.7136038481526, -3.71362900807686, -3.71364953770857, -3.71365831904488, -3.71377547920631, -3.71501656140964, -3.71517511022149, -3.71531623406061, -3.71543970557318, -3.71563466277928, -3.71576553088822, -3.71643095628919, -3.71686453439298, -3.71713161236683, -3.7171735133468, -3.71735131287451, -3.71751884258502, -3.71767936188117, -3.71782472751895, -3.71796080055738, -3.71799944095745, -3.71807031253194, -3.71813203178259, -3.71817136414942, -3.71825313387542, -3.7183589066645, -3.71851154072819, -3.71869501894699, -3.71884930687539, -3.71900801171709, -3.71922100915321, -3.71939642214996, -3.71955880175227, -3.71970918455225, -3.71992618462615, -3.72022173871051, -3.72044676657318, -3.72067226712619, -3.72093836784582, -3.72232879426464, -3.72256157364208, -3.7229717312358, -3.72234650517873, -3.72222765380208, -3.72188441401423, -3.72158509972483, -3.72119926673909, -3.7204588335818, -3.72039061148598, -3.72037822113287, -3.72036587818559, -3.72035360031373, -3.72034140634629, -3.72032931039778, -3.72031733247584, -3.72030548787363, -3.72029379421271, -3.72028226795528, -3.7202709255443, -3.72025978225374, -3.72024885332875, -3.72023815639096, -3.72022770551656, -3.72021751475286, -3.72020760054293, -3.72019797456727, -3.72018865089253, -3.72017964356609, -3.72017096544716, -3.72016262822591, -3.72015464476157, -3.72014702437751, -3.72013977874475, -3.7201329195247, -3.72012645368354, -3.72012039288271, -3.72011474523819, -3.72010951652793, -3.72010471722522, -3.7201003530888, -3.72009642870843, -3.72009295218093, -3.72008992574843, -3.72008735632914, -3.72008524614598, -3.72008359741228, -3.7200824147082, -3.7200817058199, -3.71950777126745, -3.71805871036911, -3.71774596788992, -3.71750697069692, -3.717285324486, -3.71706831648441, -3.71691978985616, -3.71670765337166, -3.71650776886903, -3.71630598707692, -3.71611043908867, -3.71570594673755, -3.71551539161066, -3.71539362363125, -3.71513616370164, -3.7150528953118, -3.7149362736797, -3.71476769371036, -3.71453666913216, -3.7143195200112, -3.71419169337364, -3.71406977471884, -3.71390517130941, -3.71372177075561, -3.71359183743555, -3.71345761977409, -3.71327938884461, -3.71308731964593, -3.71276751529576, -3.71270506929761, -3.71269917992892, -3.71269588200753, -3.71263899829925, -3.71236194538744, -3.71208655176277, -3.71191027256207, -3.71176995336696, -3.71161963410533, -3.71140848853432, -3.71120932605594, -3.71119389176328, -3.71104763350172, -3.7109786067107, -3.71097359226641, -3.71089586925501, -3.71088542706399, -3.7108382340848, -3.71080430750933, -3.71087828759286, -3.71096485470013, -3.71099575231609, -3.71107146572208, -3.7111400774401, -3.71122024752555, -3.71126401115621, -3.71133882021349, 40.4224393266887, 40.4223651239625, 40.4222353834729, 40.4222089745741, 40.4221763382871, 40.4221429332089, 40.4221027590142, 40.4220187810065, 40.4219584094265, 40.4218785084307, 40.4218644961613, 40.4217961957496, 40.4217108843895, 40.421645999951, 40.4215787998647, 40.4214927084754, 40.4214189832802, 40.4213276628134, 40.421226123896, 40.4211874302925, 40.4211389634874, 40.420881183171, 40.4208634991186, 40.4207406915908, 40.4207283782755, 40.4207051105548, 40.4206770324199, 40.420664837321, 40.4206380602434, 40.420585968275, 40.4204489171339, 40.420359651944, 40.4202947468736, 40.4202025186147, 40.4200858172327, 40.4200464293319, 40.4199438820138, 40.4198908445081, 40.4197466952323, 40.4196825840003, 40.4196678512819, 40.419570996573, 40.4194872246336, 40.4194846201686, 40.4194826564613, 40.4194896465243, 40.4194255674599, 40.4194008047025, 40.4192291729023, 40.4190614078232, 40.4189535252296, 40.4189062756437, 40.4187705558606, 40.4187669269507, 40.4187599827779, 40.4187536749486, 40.4187524854429, 40.4187423229395, 40.4187228681491, 40.4187091788456, 40.4186943954431, 40.418680995909, 40.4186269740039, 40.4185970835543, 40.4185850768596, 40.4185692639191, 40.4185412652541, 40.4185146188574, 40.4184911248785, 40.4184659207621, 40.4184168660783, 40.4183557512079, 40.4183285690787, 40.4183265959331, 40.4182543205523, 40.4182006818792, 40.4181422784515, 40.4180984530538, 40.4180583199314, 40.4180163005884, 40.417992548348, 40.4179866826911, 40.4179347919824, 40.4178914282494, 40.4178870218384, 40.4178613855152, 40.4178443853428, 40.4178368671207, 40.4178331434644, 40.4178231624041, 40.4178155212171, 40.4178125568763, 40.4178119784403, 40.4178086077396, 40.4178070888726, 40.4178072839121, 40.4178083717131, 40.41766212831, 40.417551519588, 40.417410216522, 40.4172648833818, 40.4171586779753, 40.4170913528432, 40.4168269334701, 40.4167416110413, 40.4167180518109, 40.4166312892089, 40.4165214067968, 40.4162874931794, 40.4162693995338, 40.4162447553078, 40.4161899613262, 40.4161338578771, 40.4161153572197, 40.4160244581861, 40.415987109576, 40.4159983474508, 40.4159666928112, 40.4159612627037, 40.4159600188118, 40.4159531429408, 40.4159485840457, 40.4159463126068, 40.4159541249604, 40.4159570869091, 40.4159550786672, 40.4159491749281, 40.4159465266744, 40.4159203789074, 40.4159706855816, 40.4159639074057, 40.415961911596, 40.4158589411981, 40.4158412135358, 40.4157942211554, 40.4157378482673, 40.4157012687876, 40.4155987712396, 40.4155641381789, 40.4154937365621, 40.4154274030416, 40.4153978899053, 40.415389036774, 40.4153730549982, 40.415359372245, 40.4153542505801, 40.4153316949737, 40.4153272375141, 40.4152883668748, 40.4152795718441, 40.4152538857154, 40.4152364681072, 40.4151862933302, 40.4151733737092, 40.415162890626, 40.4151296872555, 40.4151280310084, 40.4151008448568, 40.4150686090334, 40.4150648599913, 40.4150464131262, 40.415053776214, 40.4149117498515, 40.4148658755621, 40.4146914072231, 40.4146367872114, 40.4145724532217, 40.41451576975, 40.4144543006622, 40.4143898612985, 40.4141574742974, 40.413967853476, 40.413886854558, 40.413886552149, 40.4138827400537, 40.4138821970991, 40.413881712303, 40.4138830762781, 40.4138852304944, 40.4138866771148, 40.413894026615, 40.4138575930013, 40.4138630770965, 40.4138638015719, 40.4138668783313, 40.4138697780862, 40.4138725554, 40.4138750708299, 40.4138774249312, 40.4138780937028, 40.4138793197089, 40.413880387271, 40.4138810678982, 40.4138824818729, 40.4138843122459, 40.4138866023284, 40.4138893552133, 40.4138916705931, 40.4138940510596, 40.4138972454425, 40.413899876272, 40.4139026853324, 40.4139052869498, 40.4139090388579, 40.4139141491193, 40.4139180391721, 40.4139216024227, 40.4139258045739, 40.4139482466475, 40.4139514426786, 40.4139734698115, 40.417109044378, 40.4176751040695, 40.4189054321577, 40.4189120674586, 40.4189518512956, 40.4198313973914, 40.419973117127, 40.4199739088112, 40.419975056044, 40.4199765578143, 40.4199784113021, 40.4199806137168, 40.4199831622309, 40.4199860540466, 40.4199892836486, 40.4199928473308, 40.4199967395856, 40.4200009558132, 40.4200054887117, 40.420010332766, 40.4200154815823, 40.4200209260642, 40.420026660704, 40.4200326755194, 40.4200389632156, 40.4200455146965, 40.4200523199721, 40.4200593699611, 40.4200666546736, 40.4200741641419, 40.4200818874829, 40.4200898129124, 40.4200979304776, 40.4201062283943, 40.4201146939999, 40.4201233164477, 40.4201320830604, 40.4201409811897, 40.4201499990958, 40.4201591223142, 40.4201683400205, 40.4201776377576, 40.4201870028993, 40.4201964219188, 40.4202058821753, 40.4202152295706, 40.4202527535981, 40.4202787524101, 40.4202860820037, 40.4202916823561, 40.4202968762565, 40.4203019607543, 40.4203054404874, 40.4203104102846, 40.420315092872, 40.4203198193136, 40.4203243995435, 40.4203338717593, 40.4203383335556, 40.4204199784501, 40.4205926060726, 40.4206484381409, 40.4207266327691, 40.4208396641221, 40.4209945642275, 40.421140159389, 40.4212258656105, 40.421307609145, 40.4214179714889, 40.4215402125049, 40.421626815746, 40.4217162731588, 40.4218350672198, 40.4219630840377, 40.4223293327266, 40.4223656621659, 40.4223676389986, 40.4223675476437, 40.4223991734821, 40.4225532091874, 40.4227063214136, 40.4228043280545, 40.4228823412779, 40.4229659130974, 40.423083301755, 40.4231940281265, 40.4232025706905, 40.4230609195546, 40.4229546196631, 40.422946896702, 40.4228272038323, 40.4228111244285, 40.4227384458353, 40.4226861993972, 40.4226591456579, 40.4226178012667, 40.4226030447815, 40.4225668841083, 40.4225341147725, 40.4224958266166, 40.4224749243242, 40.4224393266887)))
07901002 811410 079-01-002 2015 05 079 01 002 661 427 224 38 6 102 44 15.43 6.66 33.89 5.75 list(list(c(-3.70939977581583, -3.70935461050948, -3.70934984417811, -3.70934360005434, -3.70933744556946, -3.70952052878593, -3.70958003624975, -3.70961518210903, -3.7097606298822, -3.70977464718304, -3.70991971755663, -3.70994439409623, -3.71006310950704, -3.71015639704722, -3.71025674633611, -3.71031114608148, -3.71045828627751, -3.7106570258111, -3.71070753512375, -3.71085231343708, -3.71101327959192, -3.71113609678432, -3.71109949692841, -3.71110976009693, -3.71125938133458, -3.71128751309589, -3.71131089890994, -3.71137227025857, -3.71142746481813, -3.71147202462079, -3.71152405837458, -3.71156467510878, -3.7116038919296, -3.71165545573597, -3.71169673735726, -3.71170520698459, -3.71175349957957, -3.71178998872502, -3.71184081637844, -3.71186513197534, -3.71189148263132, -3.71182289735078, -3.71176740114015, -3.71149475630557, -3.71133882021349, -3.71126401115621, -3.71122024752555, -3.7111400774401, -3.71107146572208, -3.71099575231609, -3.71096485470013, -3.71087828759286, -3.71080430750933, -3.7108382340848, -3.71088542706399, -3.71089586925501, -3.71097359226641, -3.7109786067107, -3.71104763350172, -3.71119389176328, -3.71105515162262, -3.71087894735271, -3.71086952121981, -3.71069085186609, -3.71063922810375, -3.71062095261882, -3.71047448904967, -3.71044595156342, -3.71027117889456, -3.71020559242261, -3.71015779246543, -3.71029851519715, -3.71057335837472, -3.71061132924205, -3.71067235116033, -3.71061384649762, -3.71059771153919, -3.71052668393555, -3.71050247982096, -3.71044681587072, -3.71039765915742, -3.71038998048044, -3.71035235385184, -3.7103377715932, -3.7103016616305, -3.71026363984428, -3.71023524211903, -3.71018954664088, -3.71016228704725, -3.71015729537108, -3.71011631620412, -3.71009385340931, -3.7100898568561, -3.71004151765988, -3.71002032245357, -3.71001140655022, -3.70991569227789, -3.7099036294464, -3.70982057345394, -3.70981491069372, -3.70980532617981, -3.70973682650226, -3.7097328704279, -3.70966032538128, -3.70965427022697, -3.70961250435093, -3.70960359152948, -3.70954390959773, -3.70948580496129, -3.70945675444871, -3.70945425525741, -3.70939977581583, 40.420809970092, 40.4207762908217, 40.4207517631256, 40.4207196375112, 40.4206879653871, 40.4207375338465, 40.4207413302617, 40.4207435718903, 40.4207528498327, 40.4207537438328, 40.420762997769, 40.4207645712448, 40.4207721429274, 40.4207780934325, 40.4207844941097, 40.4207921728062, 40.4207853948632, 40.4207762398074, 40.4207722083524, 40.4207606508844, 40.4207478017104, 40.4207406915908, 40.4208634991186, 40.420881183171, 40.4211389634874, 40.4211874302925, 40.421226123896, 40.4213276628134, 40.4214189832802, 40.4214927084754, 40.4215787998647, 40.421645999951, 40.4217108843895, 40.4217961957496, 40.4218644961613, 40.4218785084307, 40.4219584094265, 40.4220187810065, 40.4221027590142, 40.4221429332089, 40.4221763382871, 40.4222089745741, 40.4222353834729, 40.4223651239625, 40.4224393266887, 40.4224749243242, 40.4224958266166, 40.4225341147725, 40.4225668841083, 40.4226030447815, 40.4226178012667, 40.4226591456579, 40.4226861993972, 40.4227384458353, 40.4228111244285, 40.4228272038323, 40.422946896702, 40.4229546196631, 40.4230609195546, 40.4232025706905, 40.4232808066523, 40.4233801688861, 40.4233854727098, 40.4232726973037, 40.4232401321538, 40.4232286044081, 40.4231362145698, 40.4231182131807, 40.4230079635173, 40.4229665906077, 40.4229364376884, 40.4228112243635, 40.4225670953076, 40.4225108614367, 40.4224883928459, 40.4223993950413, 40.4223748481779, 40.4222667990962, 40.42222997789, 40.4221452993311, 40.4220705191716, 40.4220588370091, 40.4220015971147, 40.4219794126663, 40.4219244813776, 40.421866640296, 40.4218234377955, 40.4217539225909, 40.4217124535634, 40.4217048601502, 40.4216425193121, 40.4216100565527, 40.4216042803896, 40.4215344174246, 40.4215037837414, 40.421490898382, 40.4213674884987, 40.4213519360649, 40.4212448478228, 40.4212375467989, 40.4212251889411, 40.4211490364219, 40.4211446383367, 40.4210639864345, 40.4210572544646, 40.4210155285058, 40.4210066231632, 40.420946998761, 40.4208889501778, 40.4208599258636, 40.4208574295757, 40.420809970092)))
07901003 811411 079-01-003 2015 05 079 01 003 1126 693 265 52 18 264 75 23.45 6.66 23.53 4.62 list(list(c(-3.70668327358362, -3.70655847917799, -3.70646080109646, -3.70641782031792, -3.7060765439627, -3.70595231531281, -3.70623029695179, -3.70632142947217, -3.70654046703424, -3.70672117639196, -3.7068808733421, -3.70692723631903, -3.70713145917155, -3.70719248725955, -3.70722736061723, -3.70737002363471, -3.70765244311803, -3.70780329066396, -3.70792217146855, -3.70796376859875, -3.70812840278359, -3.70793496691823, -3.70786079680271, -3.70790546756842, -3.70794894133043, -3.7079833152732, -3.70799965361418, -3.70801247773387, -3.7080492331403, -3.70806752446141, -3.7080785453491, -3.70809829207827, -3.70811070814618, -3.70811256919969, -3.70815653999642, -3.70818373615106, -3.70822924268735, -3.70826250368781, -3.70830936770529, -3.70844878274573, -3.70845503181248, -3.70848099432132, -3.70861401895948, -3.70866486946251, -3.7087601291734, -3.7088585647775, -3.70896145536236, -3.70908236890105, -3.70908769164343, -3.70911059738772, -3.70928351453135, -3.7094647271327, -3.70971081578873, -3.70976497190794, -3.70967574563186, -3.70959753582688, -3.70958748642402, -3.70943656096483, -3.70942255850282, -3.70934055555281, -3.70932667755402, -3.70930710584445, -3.70929802801756, -3.70927432361245, -3.7092502629138, -3.70923806153877, -3.70923669342142, -3.70921957098026, -3.70921049327385, -3.7091992767719, -3.70919373389325, -3.70918816506661, -3.70918223762711, -3.70918081766647, -3.70917878035074, -3.70917874603979, -3.7091782574478, -3.7091800773252, -3.70918223450529, -3.70918325613649, -3.70919006022154, -3.7092055535221, -3.70921459069088, -3.70921576838059, -3.70922869150041, -3.7092383303482, -3.70926230631641, -3.70928314844849, -3.70931187928812, -3.70934531472739, -3.70936473955127, -3.70937002534259, -3.70937282978204, -3.70937092406674, -3.70936785222612, -3.70936666716715, -3.70936360446818, -3.70934567672364, -3.70933435917631, -3.70931573706697, -3.70928568498003, -3.70932898468905, -3.70936944051962, -3.70952944790988, -3.70954081497767, -3.70969507647934, -3.70974893282797, -3.70978574805697, -3.70981469339193, -3.70984081613242, -3.70991664085079, -3.70999958745474, -3.71005708500083, -3.71019492647357, -3.71020027701114, -3.71025674633611, -3.71015639704722, -3.71006310950704, -3.70994439409623, -3.70991971755663, -3.70977464718304, -3.7097606298822, -3.70961518210903, -3.70958003624975, -3.70952052878593, -3.70933744556946, -3.70934360005434, -3.70934984417811, -3.70935461050948, -3.70939977581583, -3.70945425525741, -3.70945675444871, -3.70948580496129, -3.70954390959773, -3.70960359152948, -3.70961250435093, -3.70965427022697, -3.70966032538128, -3.7097328704279, -3.70973682650226, -3.70980532617981, -3.70981491069372, -3.70982057345394, -3.7099036294464, -3.70991569227789, -3.71001140655022, -3.71002032245357, -3.71004151765988, -3.7100898568561, -3.71009385340931, -3.71011631620412, -3.71015729537108, -3.71016228704725, -3.71018954664088, -3.71023524211903, -3.71026363984428, -3.7103016616305, -3.7103377715932, -3.71035235385184, -3.71038998048044, -3.71039765915742, -3.71044681587072, -3.71050247982096, -3.71052668393555, -3.71059771153919, -3.71061384649762, -3.71067235116033, -3.71061132924205, -3.71057335837472, -3.71029851519715, -3.71015779246543, -3.71001878377778, -3.70999781591745, -3.70983492430413, -3.70981662406705, -3.70965883904519, -3.70963904728216, -3.70948573754899, -3.70939116959252, -3.70924539797525, -3.70908781087529, -3.70899955318191, -3.70891245861098, -3.70883368069511, -3.70870446157595, -3.70860216213675, -3.70854606747601, -3.70850917740024, -3.7084473023859, -3.7083488685487, -3.70830546478953, -3.70826294158666, -3.70818132011504, -3.70816485865895, -3.708059507037, -3.70794416746226, -3.70779735748963, -3.7076938033517, -3.70768273587237, -3.7075209102189, -3.70742205912437, -3.70736300082644, -3.70718893283637, -3.70715418440023, -3.70702595094393, -3.70686727974617, -3.70681850803031, -3.70673901171429, -3.70668327358362, 40.4207299625301, 40.4206508013193, 40.4205888411775, 40.4205615760366, 40.420346179075, 40.4203099377829, 40.4201933322623, 40.4201701791284, 40.420177984914, 40.4201844248945, 40.4201901166617, 40.4201917679396, 40.4201990452917, 40.4202012201596, 40.420202462411, 40.420207546127, 40.420217609223, 40.4202229827814, 40.420227218812, 40.4202282727803, 40.4202324479113, 40.4199404167599, 40.4198284420851, 40.4198180135878, 40.4198078644759, 40.4196913668616, 40.4196330692001, 40.4195873125564, 40.4194561601812, 40.419390893969, 40.4193515680161, 40.419281111035, 40.4192368063901, 40.419230166332, 40.4190522511373, 40.4190594661442, 40.4190678625119, 40.4190739988932, 40.4190442726356, 40.4189558387876, 40.4189518753344, 40.418934085914, 40.4188429289855, 40.4188080836686, 40.4187428071548, 40.4186753525695, 40.4186048445087, 40.4185219881943, 40.4185042397823, 40.4184278606883, 40.4183722372328, 40.418391111863, 40.4184167440926, 40.4184303631334, 40.4185237404582, 40.4186197688679, 40.4186321086568, 40.4188174200248, 40.4188346127792, 40.4189352966203, 40.4189523363505, 40.4189776171305, 40.4189920184372, 40.4190296224536, 40.4190710123329, 40.4190973072657, 40.4191002570282, 40.4191424826439, 40.4191648657048, 40.4191980715113, 40.4192214589608, 40.4192449573769, 40.419287616025, 40.4193065017016, 40.419333605357, 40.4193374081655, 40.419391209681, 40.4194373242587, 40.41945372227, 40.4194613238941, 40.4194911200246, 40.4195478305159, 40.4195763381909, 40.4195800569816, 40.4196142649566, 40.4196340709765, 40.4196873663917, 40.4196872870309, 40.4196900924653, 40.4196973112144, 40.4197042502605, 40.4197191047672, 40.4197440373004, 40.4197676177234, 40.4197790461866, 40.4197818065429, 40.4197889449785, 40.4198188155371, 40.4198327603453, 40.419851292235, 40.4198775580761, 40.4199172720979, 40.419954657691, 40.4201025183281, 40.4201130229689, 40.4202555728746, 40.4203053404949, 40.420339360118, 40.4203651157206, 40.4203893400601, 40.4204596638788, 40.4205365932239, 40.4205899174884, 40.4207177599682, 40.4207227215181, 40.4207844941097, 40.4207780934325, 40.4207721429274, 40.4207645712448, 40.420762997769, 40.4207537438328, 40.4207528498327, 40.4207435718903, 40.4207413302617, 40.4207375338465, 40.4206879653871, 40.4207196375112, 40.4207517631256, 40.4207762908217, 40.420809970092, 40.4208574295757, 40.4208599258636, 40.4208889501778, 40.420946998761, 40.4210066231632, 40.4210155285058, 40.4210572544646, 40.4210639864345, 40.4211446383367, 40.4211490364219, 40.4212251889411, 40.4212375467989, 40.4212448478228, 40.4213519360649, 40.4213674884987, 40.421490898382, 40.4215037837414, 40.4215344174246, 40.4216042803896, 40.4216100565527, 40.4216425193121, 40.4217048601502, 40.4217124535634, 40.4217539225909, 40.4218234377955, 40.421866640296, 40.4219244813776, 40.4219794126663, 40.4220015971147, 40.4220588370091, 40.4220705191716, 40.4221452993311, 40.42222997789, 40.4222667990962, 40.4223748481779, 40.4223993950413, 40.4224883928459, 40.4225108614367, 40.4225670953076, 40.4228112243635, 40.4229364376884, 40.4228486742559, 40.4228354359855, 40.4227325943702, 40.4227210405216, 40.4226214203252, 40.4226089251902, 40.4225121303237, 40.4224524229065, 40.4223603866775, 40.4222600338601, 40.4222035557446, 40.4221478208495, 40.4220974076607, 40.4220147148129, 40.4219492480415, 40.4219133509072, 40.4218897436804, 40.4218501478319, 40.4217871543443, 40.4217593790151, 40.4217321658204, 40.4216799318314, 40.4216693303765, 40.4216014737911, 40.4215285992011, 40.4214351810261, 40.4213696076141, 40.4213625999593, 40.4212601286532, 40.4211975333018, 40.4211601357605, 40.421049910357, 40.4210278904301, 40.4209466283299, 40.4208466862558, 40.4208157487082, 40.4207653204417, 40.4207299625301)))
07901004 811412 079-01-004 2015 05 079 01 004 963 689 279 71 2 247 64 25.65 6.65 28.97 7.37 list(list(c(-3.7092055535221, -3.70919006022154, -3.70918325613649, -3.70918223450529, -3.7091800773252, -3.7091782574478, -3.70917874603979, -3.70917878035074, -3.70918081766647, -3.70918223762711, -3.70918816506661, -3.70919373389325, -3.7091992767719, -3.70921049327385, -3.70921957098026, -3.70923669342142, -3.70923806153877, -3.7092502629138, -3.70927432361245, -3.70929802801756, -3.70930710584445, -3.70932667755402, -3.70934055555281, -3.70942255850282, -3.70943656096483, -3.70958748642402, -3.70959753582688, -3.70967574563186, -3.70976497190794, -3.70971081578873, -3.7094647271327, -3.70928351453135, -3.70911059738772, -3.70913052333585, -3.70914448952582, -3.70916827364375, -3.70917655339534, -3.70918932428949, -3.70923053417659, -3.70925142321934, -3.7093329702075, -3.70942999104321, -3.70946684667455, -3.70964340896493, -3.7098234845527, -3.70988920587918, -3.70994985605909, -3.7100006120516, -3.71010796161026, -3.71020294669286, -3.71031798592928, -3.71044416995418, -3.71055159807226, -3.71051831473461, -3.71075092857208, -3.71107307836599, -3.71123798470053, -3.711404833422, -3.71138772355102, -3.7113727282085, -3.71135772379088, -3.71134754886224, -3.71134083757085, -3.71134065444935, -3.71133992364933, -3.7113441095021, -3.7113506611986, -3.71135558372502, -3.71136215960466, -3.71137249687214, -3.71138589646618, -3.71139498570599, -3.71140188846327, -3.71142129218482, -3.71146034073368, -3.71147146962629, -3.71148374817959, -3.71149975281426, -3.71152835116662, -3.71154784291387, -3.71155012559672, -3.71156637187988, -3.71159250696465, -3.71164890991337, -3.71163748696087, -3.71163273631756, -3.71161972450287, -3.71159948903579, -3.71157878739098, -3.7115758010881, -3.71156809006312, -3.7114482171498, -3.71135436286749, -3.71122988688352, -3.7110719727868, -3.71088939738821, -3.71086162439225, -3.71094497478284, -3.71113238272816, -3.71119012747463, -3.71130177756398, -3.71134466140596, -3.71147172070958, -3.71157213703575, -3.71164280250205, -3.71173999256588, -3.71188921199693, -3.71193075710916, -3.71176160706835, -3.71166104719754, -3.71142950930536, -3.71123764101043, -3.71113609678432, -3.71101327959192, -3.71085231343708, -3.71070753512375, -3.7106570258111, -3.71045828627751, -3.71031114608148, -3.71025674633611, -3.71020027701114, -3.71019492647357, -3.71005708500083, -3.70999958745474, -3.70991664085079, -3.70984081613242, -3.70981469339193, -3.70978574805697, -3.70974893282797, -3.70969507647934, -3.70954081497767, -3.70952944790988, -3.70936944051962, -3.70932898468905, -3.70928568498003, -3.70931573706697, -3.70933435917631, -3.70934567672364, -3.70936360446818, -3.70936666716715, -3.70936785222612, -3.70937092406674, -3.70937282978204, -3.70937002534259, -3.70936473955127, -3.70934531472739, -3.70931187928812, -3.70928314844849, -3.70926230631641, -3.7092383303482, -3.70922869150041, -3.70921576838059, -3.70921459069088, -3.7092055535221, 40.4195478305159, 40.4194911200246, 40.4194613238941, 40.41945372227, 40.4194373242587, 40.419391209681, 40.4193374081655, 40.419333605357, 40.4193065017016, 40.419287616025, 40.4192449573769, 40.4192214589608, 40.4191980715113, 40.4191648657048, 40.4191424826439, 40.4191002570282, 40.4190973072657, 40.4190710123329, 40.4190296224536, 40.4189920184372, 40.4189776171305, 40.4189523363505, 40.4189352966203, 40.4188346127792, 40.4188174200248, 40.4186321086568, 40.4186197688679, 40.4185237404582, 40.4184303631334, 40.4184167440926, 40.418391111863, 40.4183722372328, 40.4184278606883, 40.4183660652526, 40.4183227536514, 40.4180650759187, 40.4179753788797, 40.4178370240574, 40.4178407366409, 40.4178438307881, 40.4178559115802, 40.4178657729935, 40.4178695707976, 40.4178846008583, 40.4178999297667, 40.4179055247327, 40.4178995250288, 40.4178955022862, 40.4178722942277, 40.4178517593342, 40.4178268885211, 40.417799607657, 40.417760150502, 40.4178458168974, 40.4179095305836, 40.4179977675258, 40.4180429345544, 40.4180583199314, 40.4180984530538, 40.4181422784515, 40.4182006818792, 40.4182543205523, 40.4183265959331, 40.4183285690787, 40.4183557512079, 40.4184168660783, 40.4184659207621, 40.4184911248785, 40.4185146188574, 40.4185412652541, 40.4185692639191, 40.4185850768596, 40.4185970835543, 40.4186269740039, 40.418680995909, 40.4186943954431, 40.4187091788456, 40.4187228681491, 40.4187423229395, 40.4187524854429, 40.4187536749486, 40.4187599827779, 40.4187669269507, 40.4187705558606, 40.4189062756437, 40.4189535252296, 40.4190614078232, 40.4192291729023, 40.4194008047025, 40.4194255674599, 40.4194896465243, 40.4194826564613, 40.4194846201686, 40.4194872246336, 40.419570996573, 40.4196678512819, 40.4196825840003, 40.4197466952323, 40.4198908445081, 40.4199438820138, 40.4200464293319, 40.4200858172327, 40.4202025186147, 40.4202947468736, 40.420359651944, 40.4204489171339, 40.420585968275, 40.4206380602434, 40.420664837321, 40.4206770324199, 40.4207051105548, 40.4207283782755, 40.4207406915908, 40.4207478017104, 40.4207606508844, 40.4207722083524, 40.4207762398074, 40.4207853948632, 40.4207921728062, 40.4207844941097, 40.4207227215181, 40.4207177599682, 40.4205899174884, 40.4205365932239, 40.4204596638788, 40.4203893400601, 40.4203651157206, 40.420339360118, 40.4203053404949, 40.4202555728746, 40.4201130229689, 40.4201025183281, 40.419954657691, 40.4199172720979, 40.4198775580761, 40.419851292235, 40.4198327603453, 40.4198188155371, 40.4197889449785, 40.4197818065429, 40.4197790461866, 40.4197676177234, 40.4197440373004, 40.4197191047672, 40.4197042502605, 40.4196973112144, 40.4196900924653, 40.4196872870309, 40.4196873663917, 40.4196340709765, 40.4196142649566, 40.4195800569816, 40.4195763381909, 40.4195478305159)))
07901006 811413 079-01-006 2015 05 079 01 006 1298 899 405 92 11 286 68 22.03 5.24 31.20 7.09 list(list(c(-3.70874509815611, -3.7087640229142, -3.7087117161714, -3.70863997285598, -3.70852652836217, -3.70859229276142, -3.70862115663123, -3.70863611151737, -3.70865182001595, -3.70865810143579, -3.70867205809434, -3.70868421848311, -3.70868834450983, -3.70869563625239, -3.70870633646783, -3.70871612674281, -3.70871868083409, -3.70871211050275, -3.70871040315218, -3.70870437858641, -3.70870355942749, -3.70870224112555, -3.70869840756276, -3.70867525474865, -3.70867181711366, -3.70866119340543, -3.7086559645812, -3.70864865229684, -3.70863816911312, -3.70863153989289, -3.70864664457769, -3.70877702051625, -3.7089464934873, -3.70897474385823, -3.70913788820568, -3.70920159298874, -3.7092834424661, -3.70931702475128, -3.70934492769917, -3.7093824936778, -3.70941749495117, -3.7095196539921, -3.70954101873593, -3.70957887265158, -3.70961625866725, -3.70968274465481, -3.70975788185247, -3.70979608316776, -3.70985164095588, -3.70981874141022, -3.7098185920551, -3.70981855280181, -3.70981843502622, -3.70981827763208, -3.70981498974676, -3.70980552868942, -3.70979402594466, -3.70984041628383, -3.70992528146826, -3.70995696285315, -3.71010380786462, -3.71013386200849, -3.7101909399707, -3.71023803254905, -3.71030067528548, -3.71035601013128, -3.71040949004668, -3.71051255389243, -3.71058542051459, -3.71068234831481, -3.71074099545374, -3.71082054898661, -3.71086836174227, -3.71093541347729, -3.71111757545176, -3.71111475753348, -3.7110917392054, -3.71106412404103, -3.71110242697607, -3.71113447096871, -3.71114813518941, -3.71120031668999, -3.71122905613913, -3.71125861935003, -3.71128782538717, -3.71130443239871, -3.7113226817339, -3.71133194490177, -3.71135400344765, -3.71136448100987, -3.71137872658311, -3.71152783552908, -3.7117117258118, -3.71172772332342, -3.71184717357787, -3.71193147745146, -3.71191572132933, -3.71190328090282, -3.7119024826716, -3.71189978035862, -3.71185936245284, -3.71183613142803, -3.71182264995612, -3.71180420155519, -3.71178626456359, -3.7117722235313, -3.71174713329917, -3.71173229536949, -3.71170050110753, -3.71167930581279, -3.71166050858861, -3.71165728042117, -3.71164668008295, -3.71162724306147, -3.71160921916916, -3.71160375521449, -3.71159272314922, -3.71157068795876, -3.7115409916681, -3.71153686090379, -3.71149620119081, -3.7114521459519, -3.71144716540837, -3.71142995132838, -3.711404833422, -3.71123798470053, -3.71107307836599, -3.71075092857208, -3.71051831473461, -3.71055159807226, -3.71044416995418, -3.71031798592928, -3.71020294669286, -3.71010796161026, -3.7100006120516, -3.70994985605909, -3.70988920587918, -3.7098234845527, -3.70964340896493, -3.70946684667455, -3.70942999104321, -3.7093329702075, -3.70925142321934, -3.70923053417659, -3.70918932428949, -3.70917655339534, -3.70916827364375, -3.70914448952582, -3.70913052333585, -3.70911059738772, -3.70908769164343, -3.70908236890105, -3.70896145536236, -3.7088585647775, -3.7087601291734, -3.70866486946251, -3.70861401895948, -3.70848099432132, -3.70845503181248, -3.70844878274573, -3.70830936770529, -3.70826250368781, -3.70822924268735, -3.70818373615106, -3.70815653999642, -3.70816184761085, -3.70818101009241, -3.70818385563691, -3.70822125714705, -3.70823129932888, -3.70824808977614, -3.7082902095583, -3.70832282860578, -3.70835912128161, -3.70840516386983, -3.70842008843841, -3.70845814850094, -3.70847461336537, -3.70851476760607, -3.70852473786249, -3.70854638235737, -3.70866150839239, -3.70866770688894, -3.70874509815611, 40.4178903425704, 40.4177991775609, 40.4177942536659, 40.4177874995184, 40.4177768202108, 40.4177164624952, 40.4175504358569, 40.417464415803, 40.4173740624107, 40.4173379356592, 40.417257660306, 40.4171877191159, 40.4171639827293, 40.4171220409237, 40.4170810916868, 40.417043622713, 40.4170338487457, 40.4169446437419, 40.4169214494439, 40.4168396580045, 40.4168285417115, 40.4168201779564, 40.4167958670064, 40.416748422986, 40.416720507901, 40.4166342123683, 40.4165917311906, 40.416532329021, 40.4164471758331, 40.416393333283, 40.4163592298082, 40.4163322079224, 40.4162969190825, 40.4162910359035, 40.4162570657803, 40.4162435290039, 40.4162261349121, 40.4162189991165, 40.4162241429079, 40.4162175582849, 40.4162114245275, 40.4161935190346, 40.4161897743599, 40.416126702047, 40.4161354117336, 40.4161509018621, 40.4161684071973, 40.4161773064041, 40.4162015471477, 40.4162531029224, 40.4163354259311, 40.4163573661174, 40.4164216155474, 40.4165084429853, 40.4165251987747, 40.4165734015617, 40.4166320067034, 40.4166367115315, 40.4166461481689, 40.4166496722311, 40.4166660022792, 40.4166693453125, 40.4166756923427, 40.4166809296147, 40.4166763309532, 40.4166722672849, 40.4166683411232, 40.4166607739491, 40.4166554230627, 40.4166483069938, 40.4166420363317, 40.416697970399, 40.4167036516176, 40.4166907410147, 40.4166556690723, 40.416631518615, 40.416569805279, 40.4164957656223, 40.4164588839368, 40.4164423402254, 40.4164363166079, 40.4164169021031, 40.4164080064354, 40.4164014506685, 40.4163981357442, 40.4163974578014, 40.4163967129855, 40.4163969568237, 40.4163975389542, 40.4163987149237, 40.4164017820446, 40.4164370102383, 40.4164804543, 40.4164842339848, 40.4165124546461, 40.4165214067968, 40.4166312892089, 40.4167180518109, 40.4167416110413, 40.4168269334701, 40.4170913528432, 40.4171586779753, 40.4172648833818, 40.417410216522, 40.417551519588, 40.41766212831, 40.4178083717131, 40.4178072839121, 40.4178070888726, 40.4178086077396, 40.4178119784403, 40.4178125568763, 40.4178155212171, 40.4178231624041, 40.4178331434644, 40.4178368671207, 40.4178443853428, 40.4178613855152, 40.4178870218384, 40.4178914282494, 40.4179347919824, 40.4179866826911, 40.417992548348, 40.4180163005884, 40.4180583199314, 40.4180429345544, 40.4179977675258, 40.4179095305836, 40.4178458168974, 40.417760150502, 40.417799607657, 40.4178268885211, 40.4178517593342, 40.4178722942277, 40.4178955022862, 40.4178995250288, 40.4179055247327, 40.4178999297667, 40.4178846008583, 40.4178695707976, 40.4178657729935, 40.4178559115802, 40.4178438307881, 40.4178407366409, 40.4178370240574, 40.4179753788797, 40.4180650759187, 40.4183227536514, 40.4183660652526, 40.4184278606883, 40.4185042397823, 40.4185219881943, 40.4186048445087, 40.4186753525695, 40.4187428071548, 40.4188080836686, 40.4188429289855, 40.418934085914, 40.4189518753344, 40.4189558387876, 40.4190442726356, 40.4190739988932, 40.4190678625119, 40.4190594661442, 40.4190522511373, 40.4190304489179, 40.4189517299636, 40.41892949961, 40.4188511264443, 40.418831105046, 40.4187976291153, 40.4187136523679, 40.4186486189457, 40.4185762586763, 40.4184844598391, 40.4184547042355, 40.4183788214765, 40.4183506203376, 40.418274717505, 40.4182580793119, 40.4182219601135, 40.418029838227, 40.4180194941659, 40.4178903425704)))
07901007 811414 079-01-007 2015 05 079 01 007 645 431 213 44 4 124 35 19.22 5.43 33.02 6.82 list(list(c(-3.71082054898661, -3.71074099545374, -3.71068234831481, -3.71058542051459, -3.71051255389243, -3.71040949004668, -3.71035601013128, -3.71030067528548, -3.71023803254905, -3.7101909399707, -3.71013386200849, -3.71010380786462, -3.70995696285315, -3.70992528146826, -3.70984041628383, -3.70979402594466, -3.70980552868942, -3.70981498974676, -3.70981827763208, -3.70981843502622, -3.70981855280181, -3.7098185920551, -3.70981874141022, -3.70985164095588, -3.70979608316776, -3.70975788185247, -3.70968274465481, -3.70961625866725, -3.70957887265158, -3.70954101873593, -3.7095196539921, -3.70941749495117, -3.7093824936778, -3.70934492769917, -3.70931702475128, -3.7092834424661, -3.70920159298874, -3.70913788820568, -3.70897474385823, -3.7089464934873, -3.70877702051625, -3.7087201691045, -3.70871215427807, -3.70870424087928, -3.70870011879953, -3.7086803739126, -3.70870742429687, -3.70882573696126, -3.7089368528526, -3.70906598397872, -3.7091253243759, -3.70922008221108, -3.70923139330622, -3.70931932421253, -3.7093343562772, -3.7093661432971, -3.70944812342732, -3.70951203201947, -3.70952397912316, -3.70960009041363, -3.70963022060274, -3.70974378854443, -3.70979514485779, -3.70983875852541, -3.70990546256115, -3.70995554816523, -3.70999596574042, -3.71012812765466, -3.71016145021858, -3.71027376467142, -3.7103186704783, -3.71034772460698, -3.71050129965616, -3.71062648907862, -3.71076192411177, -3.71083348602828, -3.71103715710115, -3.71103698109804, -3.71106025903457, -3.71107170994419, -3.71110560128234, -3.71111769741398, -3.71113633599852, -3.71115214256305, -3.71115810576433, -3.71119274135563, -3.71119341298469, -3.71124710287418, -3.71125703922113, -3.71134921639062, -3.7114083552079, -3.71154021006284, -3.71158506769606, -3.71159908227761, -3.71163606448328, -3.7116804546121, -3.71175405658155, -3.71186507991198, -3.71187008454776, -3.71189192180535, -3.71201765536958, -3.71204415871061, -3.71203859339693, -3.7120240281563, -3.71202106332694, -3.71201207263074, -3.71197057535222, -3.71196709185853, -3.71196453523993, -3.71193147745146, -3.71184717357787, -3.71172772332342, -3.7117117258118, -3.71152783552908, -3.71137872658311, -3.71136448100987, -3.71135400344765, -3.71133194490177, -3.7113226817339, -3.71130443239871, -3.71128782538717, -3.71125861935003, -3.71122905613913, -3.71120031668999, -3.71114813518941, -3.71113447096871, -3.71110242697607, -3.71106412404103, -3.7110917392054, -3.71111475753348, -3.71111757545176, -3.71093541347729, -3.71086836174227, -3.71082054898661, 40.416697970399, 40.4166420363317, 40.4166483069938, 40.4166554230627, 40.4166607739491, 40.4166683411232, 40.4166722672849, 40.4166763309532, 40.4166809296147, 40.4166756923427, 40.4166693453125, 40.4166660022792, 40.4166496722311, 40.4166461481689, 40.4166367115315, 40.4166320067034, 40.4165734015617, 40.4165251987747, 40.4165084429853, 40.4164216155474, 40.4163573661174, 40.4163354259311, 40.4162531029224, 40.4162015471477, 40.4161773064041, 40.4161684071973, 40.4161509018621, 40.4161354117336, 40.416126702047, 40.4161897743599, 40.4161935190346, 40.4162114245275, 40.4162175582849, 40.4162241429079, 40.4162189991165, 40.4162261349121, 40.4162435290039, 40.4162570657803, 40.4162910359035, 40.4162969190825, 40.4163322079224, 40.4163083277435, 40.416255208996, 40.416202768886, 40.4161754462716, 40.4160445925935, 40.4159519038709, 40.4159259748511, 40.4159016231807, 40.415874455465, 40.4158619707252, 40.4158420344227, 40.4158396542122, 40.4158211552112, 40.4158179926979, 40.4158113057412, 40.4157845263012, 40.4157631775038, 40.4157591861937, 40.4157395551227, 40.4157317837086, 40.4157024920073, 40.4156892452022, 40.4156779972622, 40.4156607922153, 40.4156478738621, 40.4156374490924, 40.4156033608478, 40.4155947660845, 40.4155657968792, 40.4155576236116, 40.4155523351391, 40.4155244235992, 40.4155017170147, 40.4154772085491, 40.415464259442, 40.4154274030416, 40.4154937365621, 40.4155641381789, 40.4155987712396, 40.4157012687876, 40.4157378482673, 40.4157942211554, 40.4158412135358, 40.4158589411981, 40.415961911596, 40.4159639074057, 40.4159706855816, 40.4159203789074, 40.4159465266744, 40.4159491749281, 40.4159550786672, 40.4159570869091, 40.4159541249604, 40.4159463126068, 40.4159485840457, 40.4159531429408, 40.4159600188118, 40.4159612627037, 40.4159666928112, 40.4159983474508, 40.415987109576, 40.4160244581861, 40.4161153572197, 40.4161338578771, 40.4161899613262, 40.4162447553078, 40.4162693995338, 40.4162874931794, 40.4165214067968, 40.4165124546461, 40.4164842339848, 40.4164804543, 40.4164370102383, 40.4164017820446, 40.4163987149237, 40.4163975389542, 40.4163969568237, 40.4163967129855, 40.4163974578014, 40.4163981357442, 40.4164014506685, 40.4164080064354, 40.4164169021031, 40.4164363166079, 40.4164423402254, 40.4164588839368, 40.4164957656223, 40.416569805279, 40.416631518615, 40.4166556690723, 40.4166907410147, 40.4167036516176, 40.416697970399)))

Visualizamos

Uso la librería mapdeck para visualizar un mapa del voto a Ahora Madrid.

O lo guardamos

También podemos guardar el shapefile para abrirlo con alguna aplicación GIS. En este caso lo guardo como un Geopackage.

sf::write_sf(shp, "~/Google Drive/DATOS/R/MAPAS MAS MADRID/GPKG/elecciones24M.gpkg", driver = "GPKG")
LS0tCnRpdGxlOiAiRWxlY2Npb25lczogdW5hIGxpYnJlcsOtYSBlbiBSIHBhcmEgZGVzY2FyZ2FyIHJlc3VsdGFkb3MgZWxlY3RvcmFsZXMiCnN1YnRpdGxlOiAiRWplbXBsbyBkZSB1c28iCmF1dGhvcjogIkjDqWN0b3IgTWVsZWlybyIKZGF0ZTogIjI0LzAxLzIwMTgiCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAga2VlcF9tZDogeWVzCiAgICBoaWdobGlnaHQ6IHRhbmdvCiAgICB0aGVtZTogdW5pdGVkCiAgICB0b2M6IHllcwogIGh0bWxfbm90ZWJvb2s6CiAgICBjb2RlX2ZvbGRpbmc6IGhpZGUKICAgIGhpZ2hsaWdodDogdGFuZ28KICAgIHRoZW1lOiB1bml0ZWQKICAgIHRvYzogeWVzCiAgd29yZF9kb2N1bWVudDoKICAgIHRvYzogeWVzCi0tLQoKCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoCgllY2hvID0gVFJVRSwKCW1lc3NhZ2UgPSBGQUxTRSwKCXdhcm5pbmcgPSBGQUxTRSwgcmVzdWx0cyA9ICdhc2lzJwopCmBgYAoKCiMgQ2FyZ2FyIGxhcyBsaWJyZXLDrWFzCgoKCmBgYHtyfQojIENhcmdvIGxhcyBsaWJyZXLDrWFzCmxpYnJhcnkoc2YpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KG1hcGRlY2spCmxpYnJhcnkoa25pdHIpCmxpYnJhcnkoa2FibGVFeHRyYSkKCiNkZXZ0b29sczo6aW5zdGFsbF9naXRodWIoIm1lbmVvcy9lbGVjY2lvbmVzIikgIyA8LS0tIEluc3RhbGEgbGEgbGlicmVyw61hIGVsZWNjaW9uZXMKCmxpYnJhcnkoZWxlY2Npb25lcykKCmBgYAoKIyBJbXBvcnRhciBlbCBzaGFwZWZpbGUKRW1wZXphbW9zIGltcG9ydGFudG8gZWwgc2hhcGVmaWxlIGRlIGxhIENvbXVuaWRhZCBkZSBNYWRyaWQgeSBzZWxlY2Npb25vIHNvbG8gbGEgY2l1ZGFkIGRlIE1hZHJpZC4KCmBgYHtyfQoKc2hwIDwtIHJlYWRfc2YoIn4vR29vZ2xlIERyaXZlL0RBVE9TL1IvQ09NUE9SVEFNSUVOVE8gRUxFQ1RPUkFML3NocC9Db211bmlkYWQgZGUgTWFkcmlkLzIwMTUvY29ycmVnaWRvL3NlY2Npb25lc19jb3JyZWdpZGFzLnNocCIsIHF1aWV0ID0gVCkgIyMjIEltcG9ydG8gZWwgc2hhcGVmaWxlIApzaHAgPC0gc2hwW3N1YnN0cihzaHAkR0VPQ09ESUdPLCAxLCAzKSA9PSAiMDc5IixdICAjIFNlbGVjY2lvbm8gc29sbyBsYSBjaXVkYWQgZGUgTWFkcmlkCnNocCA8LSAgc3RfdHJhbnNmb3JtKHNocCwgNDMyNikgICMgVHJhbnNmb3JtbyBsYSBwcm95ZWNjacOzbgpgYGAKCiMgRGVzY2FyZ2FyIGxvcyByZXN1bHRhZG9zCgpNZSBkZXNjYXJnbyBsb3MgcmVzdWx0YWRvcyBhIG5pdmVsIGRlIG1lc2EgZGUgbGFzIGVsZWNjaW9uZXMgbXVuaWNpcGFsZXMgZGUgbWF5byBkZSAyMDE1IHkgbWUgcXVlZG8gc29sbyBjb24gbG9zIGRlIGxhIGNpdWRhZCBkZSBNYWRyaWQuCgpgYGB7cn0KCnJlc3VsdHMubXVuaSA8LSBtZXNhcygibXVuaWNpcGFsZXMiLCAiMjAxNSIsICIwNSIpICMgRGVzY2FyZ28gbG9zIGRhdG9zCgpyZXN1bHRzLm11bmkgPC0gcmVzdWx0cy5tdW5pW3Jlc3VsdHMubXVuaSRwcm92aW5jaWEgPT0gIjI4IiAmIHJlc3VsdHMubXVuaSRtdW5pY2lwaW8gPT0gIjA3OSIsXSAjIDI4ID0gQ29tdW5pZGFkIGRlIE1hZHJpZCB8IDA3OSA9IENpdWRhZCBkZSBNYWRyaWQKCgprdGFiIDwtIGthYmxlKGhlYWQocmVzdWx0cy5tdW5pKSwgZGlnaXRzID0gNCwgYWxpZ24gPSAibCIsIHJvdy5uYW1lcyA9IEYpCmthYmxlX3N0eWxpbmcoa3RhYiwgYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIikpICU+JSBzY3JvbGxfYm94KHdpZHRoID0gIjEwMCUiLCBoZWlnaHQgPSAiMjAwcHgiKQoKYGBgCgojIEFncnVwYXIgbGFzIG1lc2FzIGVuIHNlY2Npb25lcwoKTG9zIGRhdG9zIHNlIGRlc2NhcmdhbiBhIG5pdmVsIGRlIG1lc2EgZWxlY3RvcmFsIHBlcm8geW8gbG9zIHF1aWVybyBhIG5pdmVsIGRlIHNlY2Npw7NuIGNlbnNhbC4gQXPDrSBxdWUgYWdydXBvIGxvcyBkYXRvcyB5IG1lIHF1ZWRvIHNvbG8gY29uIGxvcyBjaW5jbyBwYXJ0aWRvcyBtw6FzIHZvdGFkb3MuCgpgYGB7cn0KCiMgQWdydXBvIGxvcyBkYXRvcwpzZWNjcy5tdW5pIDwtIHJlc3VsdHMubXVuaSAlPiUgCiAgZ3JvdXBfYnkoeWVhciwgbWVzLCBtdW5pY2lwaW8sIGRpc3RyaXRvLCBzZWNjaW9uLCBzaWdsYXMpICU+JSAKICBzdW1tYXJpc2UoY2Vuc28gPSBzdW0oY2Vuc28uSU5FKSwgCiAgICAgICAgICAgIHZvdG9zLmNhbmRpZGF0dXJhID0gc3VtKGNhbmRpZGF0dXJhcyksIAogICAgICAgICAgICB2b3RvcyA9IHN1bSh2b3RvcykpCgojIFNlbGVjY2lvbm8gYSBsb3MgY2luY28gcGFydGlkb3MKc2VjY3MubXVuaSA8LSBzZWNjcy5tdW5pW3NlY2NzLm11bmkkc2lnbGFzICVpbiUgYygiUC5QLiIsICJDJ3MiLCAiQWhvcmFNYWRyaWQiLCAiUC5TLk8uRS4iLCAiSVpRVUlFUkRBIFUiKSxdCgojIFRyYW5zZm9ybW8gbG9zIGRhdG9zIGRlIGZvcm1hdG8gbG9uZyBhIHdpZGUgCnNlY2NzLm11bmkgPC0gc3ByZWFkKHNlY2NzLm11bmksIGtleSA9IHNpZ2xhcywgdmFsdWUgPSB2b3RvcykKCiMgQ2FsY3VsbyBsb3MgJSBzb2JyZSBjZW5zbwpzZWNjcy5tdW5pJFBQX3BjdCA8LSByb3VuZCgoc2VjY3MubXVuaSRQLlAuIC8gc2VjY3MubXVuaSRjZW5zbyApICogMTAwLCAyKQpzZWNjcy5tdW5pJFBTT0VfcGN0IDwtIHJvdW5kKCggc2VjY3MubXVuaSRQLlMuTy5FLiAvIHNlY2NzLm11bmkkY2Vuc28gKSAqIDEwMCwgMikKc2VjY3MubXVuaSRBTV9wY3QgPC0gcm91bmQoKCBzZWNjcy5tdW5pJEFob3JhTWFkcmlkIC8gc2VjY3MubXVuaSRjZW5zbyApICogMTAwLCAyKQpzZWNjcy5tdW5pJENzX3BjdCA8LSByb3VuZCgoIHNlY2NzLm11bmkkYEMnc2AgLyBzZWNjcy5tdW5pJGNlbnNvICkgKiAxMDAsIDIpCgoKa3RhYiA8LSBrYWJsZShoZWFkKHNlY2NzLm11bmkpLCBkaWdpdHMgPSA0LCBhbGlnbiA9ICJsIiwgcm93Lm5hbWVzID0gRikKa2FibGVfc3R5bGluZyhrdGFiLCBib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSkgJT4lIHNjcm9sbF9ib3god2lkdGggPSAiMTAwJSIsIGhlaWdodCA9ICIyMDBweCIpCgpgYGAKCiMgRnVzaW9ubyBsb3MgZGF0b3MgY29uIGVsIHNoYXBlZmlsZQoKQ3JlbyB1bmEgY29sdW1uYSBlbiBlbCBkYXRhIGZyYW1lIGRlIGxvcyBkYXRvcyBjb24gdmFsb3JlcyBpZGVudGlmaWNhZG9yZXMgZGUgY2FkYSBzZWNjaW9uIGNlbnNhbCBxdWUgeWEgZXN0w6EgcHJlc2VudGUgZW4gZWwgc2hhcGVmaWxlIHBhcmEgZnVzaW9uYXIgZGF0b3MgeSBzaGFwZWZpbGUuCmBgYHtyfQoKc2VjY3MubXVuaSRHRU9DT0RJR08gPC0gcGFzdGUwKHNlY2NzLm11bmkkbXVuaWNpcGlvLCBzZWNjcy5tdW5pJGRpc3RyaXRvLCBzZWNjcy5tdW5pJHNlY2Npb24pCgpzaHAgPC0gbWVyZ2Uoc2hwLCBzZWNjcy5tdW5pLCBieSA9ICJHRU9DT0RJR08iKQoKYGBgCgojIFZpc3VhbGl6YW1vcwoKVXNvIGxhIGxpYnJlcsOtYSBbbWFwZGVja10oaHR0cHM6Ly9naXRodWIuY29tL1N5bWJvbGl4QVUvbWFwZGVjaykgcGFyYSB2aXN1YWxpemFyIHVuIG1hcGEgZGVsIHZvdG8gYSBBaG9yYSBNYWRyaWQuCgpgYGB7cn0KCiMgSW50cm9kdWNpciBlbCB0b2tlbiBkZSBNYXBib3gKdGtuIDwtIHJlYWRMaW5lcygifi9Hb29nbGUgRHJpdmUvREFUT1MvUi9NQVBBUyBNQVMgTUFEUklEL3Rva2VuLnR4dCIpCgojIFBhcmEgZWwgcGFuZWwgaG92ZXIKc2hwJGluZm8gPC0gcGFzdGUwKCI8YnI+PGI+IFNvYnJlIGNlbnNvPC9icj48L2I+IiwKICAgICAgICAgICAgICAgICAgICAgICAgICI8YnI+PGI+IiwgIlBQOiAiLCAiPC9iPiIsIHNocCRQUF9wY3QsICIgJSIsICI8L2JyPiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAiPGJyPjxiPiIsICJBaG9yYSBNYWRyaWQ6ICIsICI8L2I+IiAsc2hwJEFNX3BjdCwgIiAlIiwgIjwvYnI+IiwKICAgICAgICAgICAgICAgICAgICAgICAgICI8YnI+PGI+IiwgIlBTT0U6ICIsICI8L2I+IiAsc2hwJFBTT0VfcGN0LCAiICUiLCAiPC9icj4iLAogICAgICAgICAgICAgICAgICAgICAgICAgIjxicj48Yj4iLCAiQ2l1ZGFkYW5vczogIiwgIjwvYj4iICxzaHAkQ3NfcGN0LCAiICUiLCAiPC9icj4iKQoKCiMgUmFtcGEgZGUgY29sb3JlcwptIDwtIGdyRGV2aWNlczo6Y29sb3JSYW1wKGMoIiNlMWY3ZjIiLCAiIzI2YTU4ZSIpKSggKDE6MjU2KS8yNTYgKQoKCm1hcGRlY2sodG9rZW4gPSB0a24sIAogICAgICAgIHdpZHRoID0gMTYwMC8yLCAKICAgICAgICBoZWlnaHQgPSA5MDAvMiwgCiAgICAgICAgc3R5bGUgPSBtYXBkZWNrX3N0eWxlKHN0eWxlID0gImxpZ2h0IiksIAogICAgICAgIGxvY2F0aW9uID0gYygtMy43MTEzMywgNDAuNDIyNDQpLAogICAgICAgIHpvb20gPSA5KSAlPiUKICBhZGRfcG9seWdvbihkYXRhID0gc2hwLAogICAgICAgICAgICAgIGxheWVyX2lkID0gIkFNIiwgCiAgICAgICAgICAgICAgZmlsbF9jb2xvdXIgPSAiQU1fcGN0IiwgcGFsZXR0ZSA9IG0sIAogICAgICAgICAgICAgIHRvb2x0aXAgPSAiaW5mbyIsIAogICAgICAgICAgICAgIGZpbGxfb3BhY2l0eSA9IDIwMCwgbGVnZW5kID0gVCwgCiAgICAgICAgICAgICAgdXBkYXRlX3ZpZXcgPSBGLAogICAgICAgICAgICAgIGxlZ2VuZF9vcHRpb25zID0gbGlzdCh0aXRsZSA9ICJBaG9yYSBNYWRyaWQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzdWJ0aXRsZSA9ICJTb2JyZSBjZW5zbyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNzcyA9ICJmb250LWZhbWlseTogUm9ib3RvIENvbmRlbnNlZCIpKQoKYGBgCgojIE8gbG8gZ3VhcmRhbW9zCgpUYW1iacOpbiBwb2RlbW9zIGd1YXJkYXIgZWwgc2hhcGVmaWxlIHBhcmEgYWJyaXJsbyBjb24gYWxndW5hIGFwbGljYWNpw7NuIEdJUy4gRW4gZXN0ZSBjYXNvIGxvIGd1YXJkbyBjb21vIHVuIFtHZW9wYWNrYWdlXShodHRwczovL3d3dy5nZW9wYWNrYWdlLm9yZy8pLgpgYGB7cn0Kc2Y6OndyaXRlX3NmKHNocCwgIn4vR29vZ2xlIERyaXZlL0RBVE9TL1IvTUFQQVMgTUFTIE1BRFJJRC9HUEtHL2VsZWNjaW9uZXMyNE0uZ3BrZyIsIGRyaXZlciA9ICJHUEtHIikKYGBgCgoK